(select-safe-coding-system): Kill the

warning buffer before returning.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 41f9bd3da3569a0837e9d4df93e69c4156b78a9b..2d56523f705519c9d6c3a1090aa6bec14862b88a 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -328,6 +328,7 @@ Please select one from the following safe coding systems:\n"
                      (format "Select coding system (default %s): "
                              (car safe-coding-systems))
                      safe-names nil t nil nil (car (car safe-names)))))
+         (kill-buffer "*Warning*")
          (intern name))))))
 
 (setq select-safe-coding-system-function 'select-safe-coding-system)